home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).zip / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).do / AD.MENU.bas < prev    next >
BASIC Source File  |  1996-12-24  |  728b  |  19 lines
  1. 10  REM AD.MENU
  2. 15  DIM A$(10):D$ =  CHR$(4)
  3. 20  TEXT : HOME : SPEED= 255
  4. 30  HTAB 14: INVERSE : PRINT " AD.MENU ": NORMAL 
  5. 1000 I = 0
  6. 1010 I = I +1: IF I >9 GOTO 1200
  7. 1020  READ A$(I): IF A$(I) = "END" GOTO 1200
  8. 1030  PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
  9. 1200  VTAB 23: INVERSE : PRINT "G=GOBACK  S=START OVER  ";
  10. 1210  IF A$(I) < >"END"  THEN  PRINT "M=MORE ";
  11. 1220  NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
  12. 1225  IF R$ = "M"  AND A$(I) < >"END"  THEN 20
  13. 1230  IF R$ = "S"  THEN  RESTORE : GOTO 20
  14. 1240  IF R$ = "G"  THEN  PRINT D$"RUN SOFT.ADS"
  15. 1250 R =  INT( VAL(R$)): IF R >0  AND R <I  THEN  PRINT D$"RUN AD.";A$(R)
  16. 1260  GOTO 1200
  17. 5000  DATA "A JOYSTICK FOR UNDER $15!"
  18. 5010  DATA "CABLE AD"
  19. 9999  DATA "END"